home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 40 / 64er_Magazin_Sonderheft_40_19xx_Markt__Technik_de.d64 / demo 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  553b  |  18 lines
  1. 100 rem rechenuebungen
  2. 110 ti$="000000"
  3. 120 a=int(rnd(1)*10)+2:b=int(rnd(1)*10)+2:c=int(rnd(1)*10)+20
  4. 130 ifa*b+c>100then120
  5. 140 printa"*"b"+"c"= ?
  6. 160 [133]"antwort";a%:l%[178]a[172]b[170]c
  7. 170 [139]a%[178]l%[167][153]"onrichtig":r[178]r[170]1:[137]190
  8. 180 [153]"onfalsch  loesung:";l%:f[178]f[170]1
  9. 190 [139]ti[179]3600[167] 120:[143] eine minute
  10. 200 [153]"sie haben";r;"aufgabe(n) geloest"
  11. 210 [139]f[177]1[167][153]"sie machen zu viele fehler!"
  12. 220 [139]f[179]2[167][153]"sie koennen richtig rechnen"
  13. 230 [139]r[179]10[167][153]"sie muessen schneller werden!!"
  14. 240 [139]r[177]9[167][153]"sie koennen schnell rechnen"
  15. 250 [153]"noch einmal [j/n]"
  16. 260 [161] a$:[139]a$[178]""[167]260
  17. 270 [139]a$[179][177]"n"[167][138]
  18.